home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok02.lha / M2Code / M2ACode / M2ACodeDemo / DrawLines.mod < prev    next >
Encoding:
Modula Implementation  |  1993-08-16  |  750 b   |  34 lines
  1. IMPLEMENTATION MODULE DrawLines;
  2.  
  3. FROM SYSTEM IMPORT BYTE,WORD,ADDRESS,BITSET,LONGSET,FFP,INLINE,SETREG,REG;
  4.  
  5. CONST
  6.   MOVEMS = 48E7H;
  7.   MOVEML = 4CDFH;
  8.  
  9. (*------  DrawLines  ------*)
  10.  
  11. PROCEDURE DrawLines(a:ADDRESS;b:ADDRESS);
  12.  
  13. BEGIN
  14.  
  15.   INLINE(MOVEMS,03002H);
  16.  
  17.   SETREG(10,ADDRESS(a));
  18.   SETREG(14,ADDRESS(b));
  19.  
  20.   INLINE(07610H,04242H,0224AH,04240H,04241H,04EAEH,0FF10H,0224AH);
  21.   INLINE(03002H,0323CH,000FFH,04EAEH,0FF0AH,0224AH,0303CH,0027FH);
  22.   INLINE(0323CH,00000H,04EAEH,0FF0AH,0224AH,04240H,0323CH,000FFH);
  23.   INLINE(04EAEH,0FF10H,0224AH,03002H,04241H,04EAEH,0FF0AH,0224AH);
  24.   INLINE(0303CH,0027FH,0323CH,000FFH,04EAEH,0FF0AH,05442H,0B47CH);
  25.   INLINE(00280H,065B0H,05343H,066AAH);
  26.  
  27.  
  28.   INLINE(MOVEML,0400CH);
  29.  
  30. END DrawLines;
  31.  
  32. BEGIN
  33. END DrawLines.
  34.